function [a] = Average(A)

a = 0;
for i = 1:1:3000
  a = a + A(i); 
end

a = a/3000;
